1) MT.FAI[MUS,LCS] and 2) MUS10.FAI[MUS,LCS]	10-27-77 13:44	pages 2,2

**** File 1) MT.FAI[MUS,LCS], Page 2 line 11
1)	a bug or incompatability.
1)	******** STANFORD, OCT 1977 --- Leland Smith
1)	******** THIS IS A STRIPPED DOWN VERSION FOR IRCAM.
1)	******** MANY OF THE CONDITIONALS HAVE BEEN REMOVED.  THIS VERSION ONLY WRITES
**** File 2) MUS10.FAI[MUS,LCS], Page 2 line 11
2)	a bug or incompatability. And remember that conditionals are good for you!)
2)	******** STANFORD, OCT 1977 --- Leland Smith
2)	******** THE ABOVE NOTWITHSTANDING, THIS IS A STRIPPED DOWN VERSION FOR IRCAM.
2)	******** MANY OF THE CONDITIONALS HAVE BEEN REMOVED.  THIS VERSION ONLY WRITES
***************


**** File 1) MT.FAI[MUS,LCS], Page 2 line 73
1)	;;ADCHN←←3
1)	↓SBCHAN←←4
1)	;;↓SIXCHN←←5
1)	;;↓DACCHN←←6
1)	;;↓NOWAIT←←400	;INHIBIT 'XXX is busy. Will you wait?`
1)	;;↓WAITBIT←←1000	;ALWAYS wait!
1)	;SIZES OF VARIOUS STACKS AND TABLES:
**** File 2) MUS10.FAI[MUS,LCS], Page 2 line 73
2)	ADCHN←←3
2)	↓SBCHAN←←4
2)	↓SIXCHN←←5
2)	↓DACCHN←←6
2)	↓NOWAIT←←400	;INHIBIT 'XXX is busy. Will you wait?`
2)	↓WAITBIT←←1000	;ALWAYS wait!
2)	;SIZES OF VARIOUS STACKS AND TABLES:
***************


**** File 1) MT.FAI[MUS,LCS], Page 8 line 11
1)	SETUP1:	INIT TTY,1
**** File 2) MUS10.FAI[MUS,LCS], Page 8 line 11
2)	;;;	MOVEI INTSER
2)	;;;	MOVEM JOBAPR↑
2)	;;;	MOVE INTBIT
2)	;;;	INTENB	 
2)	SETUP1:	INIT TTY,1
***************


**** File 1) MT.FAI[MUS,LCS], Page 21 line 135
1)		ENTSYM BITS,,VRBLBT,	BITS  ;TO SET BYTESIZE
**** File 2) MUS10.FAI[MUS,LCS], Page 21 line 135
2)	;	ENTSYM DOPLA,Y,VRBLBT,	DOPLAY#
2)		;DOPLAY←1=WILL PLAY WHEN WRITING SMPLS ON DSK
  1) MT.FAI[MUS,LCS] and 2) MUS10.FAI[MUS,LCS]	10-27-77 13:44	pages 21,21

2)		ENTSYM BITS,,VRBLBT,	BITS  ;TO SET BYTESIZE
***************


**** File 1) MT.FAI[MUS,LCS], Page 21 line 139
1)		ENTSYM MTA,,VRBLBT,	MTA   ;TO SET MTA WRITEOUT
1)	↑MTA:	0   		; DEFAULT VALUE, NON-ZERO WRITES ON MTA0
1)		ENTSYM OUTFI,LE,VRBLBT!STRFLG,	OUTFIL
**** File 2) MUS10.FAI[MUS,LCS], Page 21 line 142
2)		ENTSYM OUTFI,LE,VRBLBT!STRFLG,	OUTFIL
***************


**** File 1) MT.FAI[MUS,LCS], Page 75 line 5
1)	;;	 FILELOC  ←←0;	! First file name;
1)	;;	 EXT1LOC  ←←1;	! First ext.;
1)	;;	 DATELOC  ←←2;	! Date written;
1)	;;	 PPNLOC   ←←3;	! Location of PPN;
1)	;;	 FILE2LOC ←←4;	! Last file name;
1)	;;	 EXT2LOC  ←←5;	! Last ext.;
1)	;;	 FOOLOC   ←←6;	! Last word count,,Normal word count;
1)	;;	 BAZLOC   ←←7;	! Maximum sample,,Number of files;
1)	;;	 MAXLOC   ←←BAZLOC;
1)	MAKBUF:	MOVE SBBOTT	;GET ADDRESS OF BUFFER
**** File 2) MUS10.FAI[MUS,LCS], Page 75 line 5
2)		 FILELOC  ←←0;	! First file name;
2)		 EXT1LOC  ←←1;	! First ext.;
2)		 DATELOC  ←←2;	! Date written;
2)		 PPNLOC   ←←3;	! Location of PPN;
2)		 FILE2LOC ←←4;	! Last file name;
2)		 EXT2LOC  ←←5;	! Last ext.;
2)		 FOOLOC   ←←6;	! Last word count,,Normal word count;
2)		 BAZLOC   ←←7;	! Maximum sample,,Number of files;
2)		 MAXLOC   ←←BAZLOC;
2)	MAKBUF:	MOVE SBBOTT	;GET ADDRESS OF BUFFER
***************


**** File 1) MT.FAI[MUS,LCS], Page 75 line 22
1)		POPJ P,		;NOW, RETURN
1)	;;	ERROR <ERROR IN SETTING UP BUFFER RINGS>
1)	;   Initialize DSK for output;
1)	INIDSK:	SKIPN SBFILN
**** File 2) MUS10.FAI[MUS,LCS], Page 75 line 22
2)	;	MOVEI 2200	;SET TO 18 BIT SAMPLES
2)	;	HRLM SBPTR
2)		POPJ P,		;NOW, RETURN
2)		ERROR <ERROR IN SETTING UP BUFFER RINGS>
  1) MT.FAI[MUS,LCS] and 2) MUS10.FAI[MUS,LCS]	10-27-77 13:44	pages 75,75

2)	;   Initialize DSK or UDP for output;
2)	INIDSK:	SKIPN SBFILN
***************


**** File 1) MT.FAI[MUS,LCS], Page 75 line 33
1)	INIDS4:	SETZM SBDEVC		;SET BUFFERED MODE
**** File 2) MUS10.FAI[MUS,LCS], Page 75 line 35
2)	INIDS3:
2)	INIDS4:	SETZM SBDEVC		;SET BUFFERED MODE
***************


**** File 1) MT.FAI[MUS,LCS], Page 76 line 125
1)	;Header speed table
**** File 2) MUS10.FAI[MUS,LCS], Page 76 line 125
2)	;IFN 0,<				; [IRC]
2)	;***STUFF:	SOSLE SBCNT		;Dec. byte or word count
2)	;***	  JRST STUFF2
2)	;***	WARN (Header bug???)
2)	;;;	PUSHJ P,@OUTTAB(F)	;FLUSH FULL BUFFER.
2)	;***	OUT SBCHANS,
2)	;***	SKIPA  
2)	;***	WARN <Output error?>
2)	COMMENT ⊗ Error detected while writing out sample buffer ⊗;
2)	;***STUFF2:	IDPB 1,SBPTR		;  OK to stuff byte into buffer
2)	;***	POPJ P,
2)	;MONNAM:	ASCIZ/-Jan/
2)	;	ASCIZ/-Feb/
2)	;	ASCIZ/-Mar/
2)	;	ASCIZ/-Apr/
2)	;	ASCIZ/-May/
2)	;	ASCIZ/-Jun/
2)	;	ASCIZ/-Jul/
2)	;	ASCIZ/-Aug/
2)	;	ASCIZ/-Sep/
2)	;	ASCIZ/-Oct/
2)	;	ASCIZ/-Nov/
2)	;	ASCIZ/-Dec/
2)	;> ; END IFN 0 ABOVE [IRC]
2)	;Header speed table
***************


**** File 1) MT.FAI[MUS,LCS], Page 78 line 17
1)	;   Finished Doing Output, Close and Release Space
**** File 2) MUS10.FAI[MUS,LCS], Page 78 line 16
2)	;;;	JRST SBFIN2	;WRITE OUT LAST BLOCK AND CLOSE FILE
  1) MT.FAI[MUS,LCS] and 2) MUS10.FAI[MUS,LCS]	10-27-77 13:44	pages 78,78

2)	;   Finished Doing Output, Close and Release Space
***************


**** File 1) MT.FAI[MUS,LCS], Page 78 line 24
1)	;;	CAIN F,TODSK	;To disk?
1)		SKIPE MTA	; REWRITE THE HEADER IF GOING TO DSK
1)		JRST STATS
1)		USETO SBCHAN,1	;Back to beginning of file
**** File 2) MUS10.FAI[MUS,LCS], Page 78 line 25
2)		CAIN F,TODSK	;To disk?
2)		USETO SBCHAN,1	;Back to beginning of file
***************


**** File 1) MT.FAI[MUS,LCS], Page 78 line 30
1)	;;;FILLB3:	
1)	STATS:	TYPSTR [ASCIZ/
**** File 2) MUS10.FAI[MUS,LCS], Page 78 line 29
2)	FILLB3:	
2)	STATS:	TYPSTR [ASCIZ/
***************


**** File 1) MT.FAI[MUS,LCS], Page 79 line 15
1)		DBFNUM*(DBLKSZ+3)+1	;EXTRA WORD TO PREVENT EXTRA K OF
**** File 2) MUS10.FAI[MUS,LCS], Page 79 line 15
2)	;;;	UBLKSZ
2)		DBFNUM*(DBLKSZ+3)+1	;EXTRA WORD TO PREVENT EXTRA K OF
***************


**** File 1) MT.FAI[MUS,LCS], Page 79 line 29
1)		DSKOUT
**** File 2) MUS10.FAI[MUS,LCS], Page 79 line 30
2)	;;;	UDPOUT
2)		DSKOUT
***************


**** File 1) MT.FAI[MUS,LCS], Page 79 line 33
1)		DSKFIN
**** File 2) MUS10.FAI[MUS,LCS], Page 79 line 35
2)	;;;	UDPFIN
2)		DSKFIN
***************


  1) MT.FAI[MUS,LCS] and 2) MUS10.FAI[MUS,LCS]	10-27-77 13:44	pages 85,85

**** File 1) MT.FAI[MUS,LCS], Page 85 line 90
1)		MOVSI 1,446353	;DSK 	;  USE DSKM FOR IRCAM*******************
1)		SKIPE MTA	;IF MTA IS NON-ZERO RESET DEVICE NAME
1)		MOVE 1,[556441,,200000] ; = MTA0
1)		MOVEM 1,(2)
**** File 2) MUS10.FAI[MUS,LCS], Page 85 line 90
2)		MOVSI 1,446353	;DSKM	; FOR IRCAM*******************
2)		MOVEM 1,(2)
***************